home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / J-M / LabelF1ß.cpt / Label Factory 1.0 / background_2735.txt < prev    next >
Text File  |  1991-03-14  |  9KB  |  427 lines
  1. -- background: 2735 from stack: in.0
  2. -- bmap block id: 3325
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: label
  6.  
  7.  
  8. -- part 19 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=4 top=22 right=72 bottom=60
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 9911 / 9911
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Help
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   play "beeper" tempo 300 "a#7"
  23.   visual effect checkerboard
  24.   go to card "Help"
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part 20 (button)
  30. -- low flags: 00
  31. -- high flags: A004
  32. -- rect: left=452 top=74 right=124 bottom=508
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 129 / 129
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Scan All
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   play "beeper" tempo 300 "a#7"
  44.   show all cards
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 21 (button)
  50. -- low flags: 00
  51. -- high flags: A004
  52. -- rect: left=4 top=74 right=124 bottom=60
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 9910 / 9910
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Home
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   global oldlevel
  64.   play "beeper" tempo 300 "a#7"
  65.   visual effect iris close
  66.   put the freeSize of this stack into it
  67.   if it > 1024*5 then doMenu "Compact Stack"
  68.   set userLevel to oldlevel
  69.   go Home
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 51 (button)
  75. -- low flags: 00
  76. -- high flags: A004
  77. -- rect: left=452 top=126 right=176 bottom=508
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 9906 / 9906
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: New Label
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   play "beeper" tempo 300 "a#7"
  89.   set lockscreen to true
  90.   doMenu "Copy Card"
  91.   go to last card
  92.   domenu "Paste Card"
  93.   set lockscreen to false
  94.   answer "This is your new label."
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 48 (button)
  100. -- low flags: 00
  101. -- high flags: 8004
  102. -- rect: left=452 top=230 right=280 bottom=508
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 9908 / 9908
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: Typeface
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   play "beeper" tempo 300 "a#7"
  114.   if the selectedLine is empty then
  115.     answer "No Selected Field"
  116.   else
  117.     doMenu "Text Style..."
  118.   end if
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part 52 (button)
  124. -- low flags: 00
  125. -- high flags: A004
  126. -- rect: left=452 top=22 right=72 bottom=508
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 9909 / 9909
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Print Label
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   play "beeper" tempo 300 "a#7"
  138.   hide bg button "Help"
  139.   hide bg button "Home"
  140.   hide bg button "Credits"
  141.   hide bg button "New Field"
  142.   hide bg button "Print Label"
  143.   hide bg button "Installer"
  144.   hide bg button "Scan All"
  145.   hide bg button "New Label"
  146.   hide bg button "Delete Card"
  147.   hide bg button "Typeface"
  148.   hide bg button "Find"
  149.   hide bg button "Next"
  150.   hide bg button "Prev"
  151.   hide bg button "End"
  152.   open printing with dialog
  153.   print this card
  154.   close printing
  155.   show bg button "Help"
  156.   show bg button "Home"
  157.   show bg button "Credits"
  158.   show bg button "New Field"
  159.   show bg button "Print Label"
  160.   show bg button "Installer"
  161.   show bg button "Scan All"
  162.   show bg button "New Label"
  163.   show bg button "Delete Card"
  164.   show bg button "Typeface"
  165.   show bg button "Find"
  166.   show bg button "Next"
  167.   show bg button "Prev"
  168.   show bg button "End"
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 63 (button)
  174. -- low flags: 00
  175. -- high flags: A004
  176. -- rect: left=452 top=178 right=228 bottom=508
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 99 / 99
  179. -- text alignment: 1
  180. -- font id: 0
  181. -- text size: 12
  182. -- style flags: 0
  183. -- line height: 16
  184. -- part name: Delete Card
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   play "beeper" tempo 300 "a#7"
  188.   answer "Delete this Label?" with "OK" or "Cancel"
  189.   if it is "Cancel" then exit mouseup
  190.   else
  191.     domenu "Delete Card"
  192.   end if
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 64 (button)
  198. -- low flags: 00
  199. -- high flags: A004
  200. -- rect: left=4 top=126 right=176 bottom=60
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 9912 / 9912
  203. -- text alignment: 1
  204. -- font id: 0
  205. -- text size: 12
  206. -- style flags: 0
  207. -- line height: 16
  208. -- part name: Credits
  209. ----- HyperTalk script -----
  210. on mouseUp
  211.   play "beeper" tempo 300 "a#7"
  212.   visual effect checkerboard
  213.   go to card "me"
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 66 (button)
  219. -- low flags: 00
  220. -- high flags: A004
  221. -- rect: left=4 top=178 right=228 bottom=60
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 9913 / 9913
  224. -- text alignment: 1
  225. -- font id: 0
  226. -- text size: 12
  227. -- style flags: 0
  228. -- line height: 16
  229. -- part name: New Field
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   play "beeper" tempo 300 "a#7"
  233.   domenu "New Field"
  234. end mouseUp
  235.  
  236.  
  237.  
  238. -- part 65 (button)
  239. -- low flags: 00
  240. -- high flags: A004
  241. -- rect: left=452 top=282 right=332 bottom=508
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 9914 / 9914
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Find
  250. ----- HyperTalk script -----
  251. on mouseup
  252.   play "beeper" tempo 300 "a#7"
  253.   ask "Enter string to be found."
  254.   if it is empty then exit mouseup
  255.   find it
  256. end mouseup
  257.  
  258.  
  259. -- part 68 (button)
  260. -- low flags: 00
  261. -- high flags: 0000
  262. -- rect: left=221 top=309 right=342 bottom=260
  263. -- title width / last selected line: 0
  264. -- icon id / first selected line: 9002 / 9002
  265. -- text alignment: 1
  266. -- font id: 0
  267. -- text size: 12
  268. -- style flags: 0
  269. -- line height: 16
  270. -- part name: Prev
  271. ----- HyperTalk script -----
  272. on mouseDown
  273.   repeat
  274.     visual effect wipe left
  275.     go to previous card of this bg
  276.     if the mouse is up then exit repeat
  277.   end repeat
  278. end mouseDown
  279.  
  280.  
  281.  
  282. -- part 69 (button)
  283. -- low flags: 00
  284. -- high flags: 0000
  285. -- rect: left=292 top=309 right=342 bottom=329
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 9903 / 9903
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: Next
  294. ----- HyperTalk script -----
  295. on mouseDown
  296.   repeat
  297.     visual effect wipe right
  298.     go to next card of this bg
  299.     if the mouse is up then exit repeat
  300.   end repeat
  301. end mouseDown
  302.  
  303.  
  304.  
  305. -- part 70 (button)
  306. -- low flags: 00
  307. -- high flags: A004
  308. -- rect: left=4 top=230 right=280 bottom=60
  309. -- title width / last selected line: 0
  310. -- icon id / first selected line: 9907 / 9907
  311. -- text alignment: 1
  312. -- font id: 0
  313. -- text size: 12
  314. -- style flags: 0
  315. -- line height: 16
  316. -- part name: Installer
  317. ----- HyperTalk script -----
  318. on mouseUp
  319.   play "beeper" tempo 300 "a#7"
  320.   answer "Install Label Factory button in Home card?" with "Install" or "Cancel"
  321.   if it = "Cancel" then
  322.     exit mouseup
  323.   end if
  324.   if it = "Install" then
  325.     set the userLevel to 5
  326.     set the lockScreen to true
  327.     show bg button "Label Factory 1.0"
  328.     choose button tool
  329.     click at the loc of bg button "Label Factory 1.0"
  330.     domenu copy button
  331.     hide bg button "Label Factory 1.0"
  332.     set the lockscreen to false
  333.     go home
  334.     domenu paste button
  335.     repeat
  336.       set the loc of button "Label Factory 1.0" to the mouseloc
  337.       put the mouseloc into oldloc
  338.       put "Position the button where you'd like it, and then click."
  339.       wait until the mouseloc ‚↠oldloc
  340.       put empty into msg
  341.       hide msg
  342.       repeat until the mouseclick
  343.         set the loc of button "Label Factory 1.0" to the mouseloc
  344.       end repeat
  345.       choose browse tool
  346.       answer "Is it in the right place?" with "No" or "Yes"
  347.       if it is "Yes" then exit repeat
  348.       else choose button tool
  349.     end repeat
  350.   end if
  351.   choose browse tool
  352. end mouseUp
  353.  
  354.  
  355.  
  356. -- part 73 (button)
  357. -- low flags: 00
  358. -- high flags: 2000
  359. -- rect: left=259 top=310 right=341 bottom=293
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 9003 / 9003
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: Restore Buttons
  368. ----- HyperTalk script -----
  369. on mouseUp
  370.   play "beeper" tempo 300 "a#7"
  371.   show bg button "Help"
  372.   show bg button "Home"
  373.   show bg button "Credits"
  374.   show bg button "New Field"
  375.   show bg button "Print Label"
  376.   show bg button "Installer"
  377.   show bg button "Scan All"
  378.   show bg button "New Label"
  379.   show bg button "Delete Card"
  380.   show bg button "Typeface"
  381.   show bg button "Find"
  382.   show bg button "Next"
  383.   show bg button "Prev"
  384.   show bg button "End"
  385. end mouseUp
  386.  
  387.  
  388.  
  389. -- part 74 (button)
  390. -- low flags: 80
  391. -- high flags: A000
  392. -- rect: left=66 top=231 right=279 bottom=159
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 9915 / 9915
  395. -- text alignment: 1
  396. -- font id: 0
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: Label Factory 1.0
  401. ----- HyperTalk script -----
  402. on mouseUp
  403.   get short name of the target
  404.   go it
  405. end mouseUp
  406.  
  407.  
  408.  
  409. -- part 75 (button)
  410. -- low flags: 00
  411. -- high flags: 2000
  412. -- rect: left=4 top=313 right=342 bottom=36
  413. -- title width / last selected line: 0
  414. -- icon id / first selected line: 9905 / 9905
  415. -- text alignment: 1
  416. -- font id: 0
  417. -- text size: 12
  418. -- style flags: 0
  419. -- line height: 16
  420. -- part name: end
  421. ----- HyperTalk script -----
  422. on mouseUp
  423.   play "beeper" tempo 300 "a#7"
  424.   go to last card
  425. end mouseUp
  426.  
  427.